home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 1 Year / Tiger_Disk_1_Year_19xx_Tiger-Crew-Disk_de_Side_B.d64 / disk to tape (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  58 lines
  1. 10 poke53280,0:poke53281,0:print"[147]"
  2. 20 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
  3. 30 [153]"peek                                     peek
  4. 40 print"[194][160][160][160]       change master 64           [194]
  5. 50 [153]"peek                                     peek
  6. 60 print"[194]             written by              [194]
  7. 70 [153]"peek                                     peek
  8. 80 print"[194]  stephan senz & burghard heidegger  [194]
  9. 90 [153]"peek                                     peek
  10. 100 print"[194]       lade zuerst fastload !        [194]
  11. 110 [153]"peek                                     peek
  12. 120 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
  13. 130 [153]"
  14. 140 print"                   instruktionen ? (j/n)
  15. 150 [161] a$:[139]a$[178]""[167]150
  16. 160 [139]a$[179][177]"j"[167] 570
  17. 170 [153]"load"
  18. 180 [153]"(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenright$
  19. 190 print"[194]instruktionen[194]
  20. 200 [153]"mid$lenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)
  21. 210 print"mit diesem programm koennen sie mehrere"
  22. 220 print"gewuenschte prge. von disk auf schnelle"
  23. 230 print"cassette format turbo tape (kompatiebel"
  24. 240 print"zu extra-64) schreiben."
  25. 250 print"es ist z.b. bei umfangreichem programm-"
  26. 260 print"tausch oder beim anlegen von kopien zur"
  27. 270 print"datensicherung unentberlich."
  28. 280 printtab(33)"return[146]"
  29. 290 geta$:ifa$=""then290
  30. 300 print"[147]"
  31. 310 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  32. 320 print"[194]befehlsliste[194]"
  33. 330 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  34. 340 print" *    damit markieren sie die "
  35. 350 print"      gewuenschten prge."
  36. 360 print" a    wenn alle prge. der diskette ko-"
  37. 370 print"      piert werden sollen."
  38. 380 print" w    sie erhalten den naechsten teil"
  39. 390 print"      der directory."
  40. 400 printtab(33)"return[146]"
  41. 410 geta$:if a$=""then410
  42. 420 print"[147]"
  43. 430 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  44. 440 print"[194]befehlsliste[194]"
  45. 450 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  46. 460 print" s    wenn sie die markierung beendet"
  47. 470 print"      haben."
  48. 480 print" n    wenn sie eine weitere diskette "
  49. 490 print"      kopieren wollen."
  50. 500 print" x    ausgang in's basic."
  51. 510 print"bem.: alle befehle muessen in der "
  52. 520 print"      ersten spalte stehen !"
  53. 530 print"      nach sys 50000 folgende befehle :"
  54. 540 print"      _l  _s  _v von basic aus moeglich"
  55. 550 print"disk eingelegt ?                return[146]"
  56. 560 geta$:if a$=""then560
  57. 570 sys4003
  58.